home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-4a / channels.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-13  |  1.7 KB  |  62 lines
  1. Attribute VB_Name = "channels"
  2. 'this is an optional module to handle channels in a server, such as IRC protocal.
  3.  
  4. Public Const max_people_in_room_default = 100 'default limit value
  5. Public Const max_channels = 100 'max channels that can be created
  6. Public Const access_level_required_to_create_channels = 1
  7. Public Const max_channels_per_user = 10 'max chans a user can be in
  8.  
  9. Type channel_type
  10.  
  11. clients(max_people_in_room) As Integer 'people in the room
  12. channel As String      'name of channel
  13. topic As String        'topic of channel
  14. created_by As String   'who made it
  15. created_time As String 'when was it made
  16. moderated As Boolean   'is it moderated
  17. invisible As Boolean   'is it invisible
  18. key As String          'does it have a key needed to enter
  19. password As String     'whats the op password
  20. limit As Integer
  21.  
  22. End Type
  23.  
  24. 'create the array
  25. Public channel(max_channels) As channel_type
  26.  
  27. Function create_room(clientid As Integer, name As String) As Boolean
  28. 'user wants to make a room, return if its made
  29.  
  30.  
  31. If client(clientid).access_level >= access_level_required_to_create_channels Then
  32.  
  33. For i = 1 To max_channels
  34. If channel(i).channel = "" Then
  35. 'found an empty room
  36.  
  37. channel(i).channel = name
  38. channel(i).created_by = client(clientid).nick
  39. channel(i).created_time = f_time
  40. channel(i).invisible = False
  41. channel(i).key = ""
  42. channel(i).moderated = False
  43. channel(i).password = "default"
  44. channel(i).topic = "No Topic Set"
  45. channel(i).limit = max_people_in_room_default
  46.  
  47. create_room = True
  48. Exit Sub
  49. End If
  50. Next i
  51. 'no free room spaces
  52. create_room = False
  53.  
  54.  
  55. Else
  56. 'cannot create channel (not correct level)
  57. create_room = False
  58.  
  59. End If
  60.  
  61. End Function
  62.